home *** CD-ROM | disk | FTP | other *** search
- ' Menu flags
- Global Const MF_BYCOMMAND = &H0
- Global Const MF_BYPOSITION = &H400
-
- Global Const MF_SEPARATOR = &H800
-
- Declare Function GetMenu Lib "User" (ByVal hWnd As Integer) As Integer
- Declare Function GetSystemMenu Lib "User" (ByVal hWnd As Integer, ByVal bRevert As Integer) As Integer
- Declare Function GetSubMenu Lib "User" (ByVal hMenu As Integer, ByVal nPos As Integer) As Integer
- Declare Function GetMenuItemID Lib "User" (ByVal hMenu As Integer, ByVal nPos As Integer) As Integer
- Declare Function GetMenuItemCount Lib "User" (ByVal hMenu As Integer) As Integer
-
- ' type structure for the help message string and related menu item ID
- Type HelpTextTYPE
- lMenuID As Long
- lhMenu As Long
- strHelpMsg As String
- End Type
-
-